home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / eyes / audreye6.wwModel / controls.nib / data.nib (.txt) < prev   
Encoding:
NeXT TypedStream Data  |  1995-03-29  |  7.2 KB  |  122 lines
  1. typedstream
  2. IBObjectData
  3. Object
  4. CustomObject
  5. WWTCLInterp
  6. WWTextField
  7.     TextField
  8. Control
  9.     Responder
  10. WWButton
  11. Button
  12. WWButtonCell
  13. ButtonCell
  14. ActionCell
  15. Helvetica-Bold$
  16.     Helvetica$
  17. WWTextFieldCell
  18. TextFieldCell
  19. #set go2CurrentMinMaxCurrent(min) %f
  20. go2CurrentMinMaxCurrent(min)
  21. (set go2CurrentMinMaxCurrent(duration) %f
  22. !go2CurrentMinMaxCurrent(duration)
  23. duration
  24. #set go2CurrentMinMaxCurrent(max) %f
  25. go2CurrentMinMaxCurrent(max)
  26. 'set go2CurrentMinMaxCurrent(varName) %s
  27.  go2CurrentMinMaxCurrent(varName)
  28. varName
  29. weight
  30. Matrix
  31. @:@iiii
  32.     openClose
  33. mset go2CurrentMinMaxCurrent(varName) eyeBall(openCloseR);
  34. set go2CurrentMinMaxCurrent(agentName) openCloseR;
  35.     leftRight
  36. mset go2CurrentMinMaxCurrent(varName) eyeBall(leftRightR);
  37. set go2CurrentMinMaxCurrent(agentName) leftRightR;
  38. upDown
  39. gset go2CurrentMinMaxCurrent(varName) eyeBall(upDownR);
  40. set go2CurrentMinMaxCurrent(agentName) upDownR;
  41. ff@@#::s
  42. tset goCurrentMinMaxCurrent(varName) eyeBall(openCloseR);
  43. set goCurrentMinMaxCurrent(agentName) eyeBall(openCloseR);
  44.     agentName
  45. )set go2CurrentMinMaxCurrent(agentName) %s
  46. "go2CurrentMinMaxCurrent(agentName)
  47. WWThumbWheel
  48. PAThumbWheel
  49. WWThumbWheelCell
  50. PAThumbWheelCell
  51. *set audreyeII(thetaMax) %f; synchWithScene
  52. audreyeII(thetaMax)
  53. -360.0
  54. thetaMax
  55. *set eyeBall(leftRightR) %f; synchWithScene
  56. eyeBall(leftRightR)
  57. 'set eyeBall(upDownR) %f; synchWithScene
  58. eyeBall(upDownR)
  59. rotate
  60. #set blink(downU) %f; synchWithScene
  61. blink(downU)
  62. downU
  63. !set blink(upU) %f; synchWithScene
  64. blink(upU)
  65. &set blink(thetaMax) %f; synchWithScene
  66. blink(thetaMax)
  67. (set eyeBall(irisSize) %f; synchWithScene
  68. eyeBall(irisSize)
  69. irisSize
  70. )set eyeBall(bloodShot) %f; synchWithScene
  71. eyeBall(bloodShot)
  72.     bloodShot
  73. )set eyeBall(pupilSize) %f; synchWithScene
  74. eyeBall(pupilSize)
  75.     pupilSize
  76. WWColorWell
  77. NXColorWell
  78. 1set eyeBall(irisColor) {%f %f %f}; synchWithScene
  79. eyeBall(irisColor)
  80.     irisColor
  81. WindowTemplate
  82. iiii***@s@
  83. Audrey EyeBall controls
  84. Panel
  85.     WWTTTimer
  86. @:diciffffc
  87. _sideToSideMotorProgram $sideToSide(varName) $sideToSide(u) $sideToSide(uA) $sideToSide(uB) $sideToSide(initial) $sideToSide(min) $sideToSide(max) $sideToSide(agentName); 
  88. set sideToSide(uIncr) [expr {1.0/(($sideToSide(howManySeconds) * $scene(ticksPerSecond)) - 1)}];
  89. set sideToSide(u) [expr $sideToSide(u) + ($sideToSide(uIncr) * [synchWithScene])]
  90. preSideToSide
  91. #postSideToSide $sideToSide(initial)
  92. $sideToSide(u) < 1
  93. blinkMotorProgram $blink(u) $blink(downU) $blink(upU) $blink(initialTheta) $blink(thetaMax); 
  94. set blink(u) [expr $blink(u) + ($blink(uIncr) * [synchWithScene])];  
  95. preBlink
  96. postBlink $blink(initialTheta)
  97. $blink(u) <= 1
  98. constrictMotorProgram $constrict(u) $constrict(pupilMax) $constrict(extent); 
  99. set constrict(u) [expr $constrict(u) + ($constrict(uIncr) * [synchWithScene])];  
  100. preConstrict
  101. postConstrict $dilate(pupilMin)
  102. $constrict(u) <= 1
  103. dilateMotorProgram $dilate(u) $dilate(pupilMin) $dilate(extent); 
  104. set dilate(u) [expr $dilate(u) + ($dilate(uIncr) * [synchWithScene])];  
  105.     preDilate
  106. postDilate $dilate(pupilMax)
  107. $dilate(u) <= 1
  108. sideToSide
  109.     constrict
  110. dilate
  111. Panel1
  112. blink
  113. File's Owner
  114. controls
  115. IBOutletConnector
  116. IBConnector
  117. controlPanel
  118. IBControlConnector
  119. evalUsingFloatValue:
  120. interp
  121. accessoryPanel1
  122.